Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/landma1a/land.frm

Text File | 1999-10-10 | 18KB | 677 lines

VERSION 5.00
Begin VB.Form Land
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "LandMass"
   ClientHeight    =   8715
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   10455
   FillStyle       =   0  'Solid
   Icon            =   "Land.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8715
   ScaleWidth      =   10455
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox Selection
      Alignment       =   2  'Center
      Height          =   285
      Left            =   7440
      TabIndex        =   7
      Top             =   2280
      Width           =   855
   End
   Begin VB.CommandButton BorderBut
      Caption         =   "Bordering"
      Height          =   375
      Left            =   7440
      TabIndex        =   6
      Top             =   2640
      Width           =   855
   End
   Begin VB.PictureBox Ocean
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      Height          =   7140
      Left            =   9240
      Picture         =   "Land.frx":0442
      ScaleHeight     =   7080
      ScaleWidth      =   9720
      TabIndex        =   4
      Top             =   4920
      Visible         =   0   'False
      Width           =   9780
   End
   Begin VB.PictureBox LandMap
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      Height          =   3180
      Left            =   0
      Picture         =   "Land.frx":4B344
      ScaleHeight     =   3120
      ScaleWidth      =   10560
      TabIndex        =   3
      Top             =   5400
      Visible         =   0   'False
      Width           =   10620
   End
   Begin VB.CommandButton RedrawBut
      Caption         =   "Redraw"
      Height          =   375
      Left            =   7440
      TabIndex        =   2
      Top             =   4440
      Width           =   855
   End
   Begin VB.CommandButton GoBut
      Caption         =   "Go!"
      Height          =   375
      Left            =   7440
      TabIndex        =   0
      Top             =   840
      Width           =   855
   End
   Begin VB.Label SelectionText
      Caption         =   "Selection:"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   7440
      TabIndex        =   5
      Top             =   2040
      Width           =   975
   End
   Begin VB.Label Commentary
      Caption         =   "Running Commentary Text."
      Height          =   255
      Left            =   360
      TabIndex        =   1
      Top             =   5040
      Width           =   7695
   End
   Begin VB.Menu MenuFile
      Caption         =   "File"
      Begin VB.Menu MenuExit
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu MenuOptions
      Caption         =   "Terraform"
      Begin VB.Menu MenuCountrySize
         Caption         =   "Country Size"
         Begin VB.Menu MenuSize
            Caption         =   "Tiny Independently-Owned Countries"
            Index           =   1
         End
         Begin VB.Menu MenuSize
            Caption         =   "Small Third-World Countries"
            Index           =   2
         End
         Begin VB.Menu MenuSize
            Caption         =   "Medium OPEC Countries"
            Checked         =   -1  'True
            Index           =   3
         End
         Begin VB.Menu MenuSize
            Caption         =   "Large First-World Countries"
            Index           =   4
         End
         Begin VB.Menu MenuSize
            Caption         =   "Continents"
            Index           =   5
         End
      End
      Begin VB.Menu MenuCountrySizeProp
         Caption         =   "Country Size Proportions"
         Begin VB.Menu MenuProp
            Caption         =   "Proportional Countries"
            Index           =   1
         End
         Begin VB.Menu MenuProp
            Caption         =   "Somewhat Proportional Countries"
            Checked         =   -1  'True
            Index           =   2
         End
         Begin VB.Menu MenuProp
            Caption         =   "Unproportional Countries"
            Index           =   3
         End
      End
      Begin VB.Menu MenuCountryShapes
         Caption         =   "Country Shapes"
         Begin VB.Menu MenuShape
            Caption         =   "Normal (no artificial distortion)"
            Index           =   1
         End
         Begin VB.Menu MenuShape
            Caption         =   "Irregular"
            Checked         =   -1  'True
            Index           =   2
         End
         Begin VB.Menu MenuShape
            Caption         =   "Very Irregular"
            Index           =   3
         End
      End
      Begin VB.Menu MenuMinLakeSize
         Caption         =   "Minimum Allowed Lake Size"
         Begin VB.Menu MenuLakeSize
            Caption         =   "No Lake Correction"
            Index           =   1
         End
         Begin VB.Menu MenuLakeSize
            Caption         =   "Tiny Lakes"
            Index           =   2
         End
         Begin VB.Menu MenuLakeSize
            Caption         =   "Medium Lakes"
            Checked         =   -1  'True
            Index           =   3
         End
         Begin VB.Menu MenuLakeSize
            Caption         =   "Large Lakes"
            Index           =   4
         End
      End
      Begin VB.Menu MenuGlobal
         Caption         =   "Approximate Land:Water ratio"
         Begin VB.Menu MenuPct
            Caption         =   "1:9"
            Index           =   1
         End
         Begin VB.Menu MenuPct
            Caption         =   "1:3"
            Index           =   2
         End
         Begin VB.Menu MenuPct
            Caption         =   "1:1"
            Index           =   3
         End
         Begin VB.Menu MenuPct
            Caption         =   "3:1"
            Checked         =   -1  'True
            Index           =   4
         End
         Begin VB.Menu MenuPct
            Caption         =   "9:1"
            Index           =   5
         End
      End
      Begin VB.Menu MenuIsle
         Caption         =   "Islands"
         Begin VB.Menu MenuIslands
            Caption         =   "No Islands"
            Index           =   1
         End
         Begin VB.Menu MenuIslands
            Caption         =   "Some Islands"
            Checked         =   -1  'True
            Index           =   2
         End
         Begin VB.Menu MenuIslands
            Caption         =   "Lots of Islands"
            Index           =   3
         End
      End
   End
   Begin VB.Menu MenuDraw
      Caption         =   "Draw"
      Begin VB.Menu MenuBorderChoice
         Caption         =   "Borders"
         Begin VB.Menu MenuBorders
            Caption         =   "Big Lines"
            Index           =   1
         End
         Begin VB.Menu MenuBorders
            Caption         =   "Big Dots"
            Index           =   2
         End
         Begin VB.Menu MenuBorders
            Caption         =   "Hash Marks"
            Checked         =   -1  'True
            Index           =   3
         End
         Begin VB.Menu MenuBorders
            Caption         =   "Small Dots"
            Index           =   4
         End
         Begin VB.Menu MenuBorders
            Caption         =   "None"
            Index           =   5
         End
      End
      Begin VB.Menu MenuColors
         Caption         =   "Colors"